*** empty log message ***

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index a05d9126dcdb0aed6550a756910b1fc76e0958fd..67835c294fd9316a86a74c44fecb184cb67e25c0 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4279,7 +4279,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
        (condition-case err
            (let ((debug-on-error t))
              (save-match-data (apply fn args)))
-         (error (error (error-message-string err))))
+         (error (signal (car err) (cdr err))))
       (ange-ftp-run-real-handler operation args))))
 
 ;; The following code is commented out because Tramp now deals with